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14S 4 


MODULE PASSWRITE REALE 6 ( % fiyee wee a °§ floating in F {oraat. 
1D ENT *1-003' Te: PASWRIRFG.B32 Edit: MDL1003 


BEGIN 


i eeeeeeeeeeeeeeeeeeeeeeeeeReneeeeeeeeenreneeeeeeeeeeeeeenaeeneeeeeereeenenes 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


8 
* 
* 
+ 
® 
® 
:* ONLY IN ACC SU C * 
ed INCLUSION OF THe ABOVE COPIRIGHT NOTICE. THI \w * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

o 

® 

® 

® 

® 

* 


iw DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
H IS 


leeeeneneareneenennenenennenteeerenrertectertetrentnntenernetentnneneetents 


++ 
FACILITY: Pascal Language Support 


ABSTRACT: 


This module contains procedures which write a G_floating in 
fixed-point notation to a textfile o: string. 


ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: *-April-1981 
MODIFIED BY: 

1-001 = Original. SBL 1-April-1981 


1-002 - Make total-width a longword. SBL 30-June-1982 
1-005 = Allocate 6 longwords for ARG_LIST, not 5. MDL 19-Jul-1984 


ee omy 
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PASSWRITE_REALF Write a G_floating in F format 16-Sep-1984 02:24:54 AXx-1 - -0- 
1808 Declarations ° 12 aati 95:85:35 PASRTL  SREIPAGUMIREG 6 2:1 es (2 


: ° 23 } SSBTTL Declarations’ 

3 ¢ 3 ; PROLOGUE DEFINITIONS: 

3 4 b 1 

: i iF } REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
; 119 1! 

5 $7 120 1 ! TABLE OF CONTENTS: 

; ia, 38 

3; & 1 § 1 

; 63 i 4 i eORMASSURT TE REALE G: NOVALUE ' Wei fil 
° s ! Write to text e 
: es 4 5 : PASSWRITEQ_REALF_G: NOVALUE ; ! Write to string 
; & 01 $ 1! 

; & 0128 1 ! MACROS: 

. oF 0129 1! 

; 68 0130 1! 

; & 0131 1! 

: PP 01 ; 1! 

‘2. 01 1! 

. 2 0134 1! NONE 

Tee - 0135 1! 

s 0136 1 ! FIELDS: 

oe 0137 1! 

; rf 0138 1! NONE 

5 77 0139 1! 

; 0140 1 ! OWN STORAGE: 

. 0141 1! 

; Biss -s NONE 

; 8 0143 1! 
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NONE 
EQUATED SYMBOLS: 
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| 
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PASSWRITE_REALF Write 
1-008 “é PASSW 
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G_floating in F format 18-Sep-19 4 06:96:34 AX-11 Bliss-32 V4.0- 
E_REALF_G = Write G_floating in F forma 14-Sep-1984 12:52:07 PASRTL.SRCIJPASWRIR 
ZSBTTL "PASSWRITE_REALF_G = Write G_floating in F format to textfile’ 
GLOBAL ROUTINE passwai Te REALF_G ( 

PFV: REF SPASSPFU_FILE_VARIABLE, ! File variable 

VALUE_0,VALUE_1 ! Value to write 

TOTAL-WIDTH: SIGNED, i Total field width 

FRAC_BIGITS: SIGNED, ! Digits in fraction 

ROR ! Error unwind address 


ER 
): NOVALUE = 
144 


FUNCTIONAL DESCRIPTION: 


This procedure writes a G_floating value in fixed-point notation 
to the specified textfile. 


i 

i 

i 

} CALLING SEQUENCE: 

i CALL PASSWRITE_REALF_G (PFV.mr.r, VALUE.rg.v , TOTAL_WIDTH.rl.v 

) , FRAC_DIGITS.rl.v C, ERROR. ja.rJJ) 

FORMAL PARAMETERS: 

i PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 
i VALUE - The G_floating value to write, by immediate value. 
Note that this takes up two argument List positions. 
TOTAL_WIDTH - Total field width. 

; FRAC_DIGITS - Number of digits in fraction. 

! ERROR - Optional. Address to unwind to if an error occurs. 
; IMPLICIT INPUTS: 

; NONE 

: IMPLICIT OUTPUTS: 

: NONE 

ROUTINE VALUE: 

NONE 

; SIDE EFFECTS: 

If the file is the standard file OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 

i LINTOOLON = Line too Long : bt dea ein! 

: NEGWIDDIG - negative Width or Digits specification is not allowed 

hws 


} 
NS eeeeEEEeEeEEeEeEeEeeEeEeEeyeeEeEeEeEeEeEeeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEOEeeeeeeeeeEe——ee 


pendence . 
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PASSWRITE_REALF Write a G_floating in F format 16-Sep-1984 02:24: 
1-003 PASSWRIT “REALF_G°= Write G_floating in F forma 14 eet y 95:8 


03 BEGIN 


BUILTIN 
ACTUALCOUNT; 


LOCAL 
F 


AX-11 Bliss-32 V4.0-74 
PASRTL. SRC IPASWRIRFG.B 231 


ow 
NS 


| 
| 
! File control block 
! Minimum/actual width 
! Maximum width 
VOLATILE, | Enable argument 
UNWIND_ACT: VOLATILE, ! Enable argument 
E3 ! Enable argument 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND ACT, ERROR_ADDR); ! Enable error handler 


'¢ 

Get ERROR parameter, if present. 

i - armas () GEQU 6 
ERROR_ADDR = .ERROR; ! Set unwind address 

PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


14 
Validate PFV and get PFV. 


WN SO OONOUE WN ODONOULS WN Oo 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVI]; FCB); 

"set unwind action to unlock file. 

UNWIND_ACT = PASSK_UNWIND_UNLOCK; 

bo common initialization. 

PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 


+ 
: Get minimum and maximum widths. Check for invalid width or digits values. 
| 


yet cpt PN RP AN tr PAAAAOMMNMAMNMNMNYINNI IS BEEP LPL 


oo 
w 


FIELD WIDTH = .TOTAL_WIDTH; 
IF (.FIELD_WIDTH LSS~O) OR (.FRAC_DIGITS LSS 0) 


N 
; SPAS$IO_ERROR (PAS$_NEGWIDDIG,0O); 
REMAINING_WIDTH = .FCB CFCBSA_RECORD.END) - .FCB CF CBSA_RECORD_CUR]; 
le 
Do the convert. If it fails, signal an error. 


ee ed ee a ed ee ae ae en ee ee cd a ae ee ce ce ee ce ee ce ee ce ce ee ee ee a ed ed edd 
SOOOOCOOCOOSOOSOSOCOOSOCOCOCOCOSO OOO SOSSOSSOOOOOOOOCOOOO OOO OOO OOO OOOOOOOO 


RIPSPINININININPOPIPININYNINININIPYNININPYIPININIPIPYIPIPINPOPIPIPINPIPOPYNPYPONOPONPYUNIPYNYD 


Be Se Be Se Ge Ge Be Ge Be Se Se Be Se Ge Ge Ge Se Ge Ge Ge Fo Se Ge Fe Ge Ge Fe Ge Ge Ge Ge ee Sse Ge Fe Ge Ge Ge Ge Ss Ge oe Fe Se Se Se Se Se Se Ge Fe Se Se Se Sees ees 
PUPP EBS BS BB BEE EAA AIA III PIN PUNIPUNIPYIDD 9 9 2 OS 2 OOOOOOO 
NOU EWN AO OONOAUE WIN 0 ODNOAUE WN $$ O OONOAUE WN OOONAUES WN SO OONOUS 


RIPQPINIPIPIPINIGAPODININININPIPINNININININININIAININININPIPYPINIPIPINIPUPUNINIPINONY 
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nN 8 
ye SWRITE_REALF prise lLoating in F for 19-3 Sep-1984 4:54 AX-11 Bliss-32 V4.0-74 Page 5 
WRITE REACT y Write G. "ttoating in F forma 14-Sep aah 93: $3: :07 PASRTL.SRC PASuA LAPS 68251 . (3) 
' Value 7 sonvers 
' Des tina 
ETEeD WIDTH, iM 
-REMAINING WIDTH, i Maximum w 
-FRAC_DIGITS) i Fraction digits 


THEN 
SPASSIO_ERROR (PAS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); 


| 
injmun/ actual width | 
Z "hbonee buffer pointer. 


FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; 
14 
i Call WRITE epilogue routine to move the Last character written to the 


t user's buffer and to unlock the file variable. 

PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 

RETURN; 

END; ! End of routine PASSWRITE_REALF_G 
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—SOOWONOUS WN SCO VOONOULS WR —OO0O ? 


aG 
WRITE 
IF NOT PAS$CVT_G_T (VALUE 0 
B CECBSA_ RECORD_CUR], | 
1 


TR TC IETOISICTe TS ICIS TEC ISTE ee Tere rere Te Tere 
POPIPOPIPOPYININOPONINININYNINPUAININUNUNINY 2 Ss 
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ROPIPIPPYPIPYINPIPNPNOPONINYPYP NP PyTnronoyfnuno~nrn 


OO NNN NNN NNN NIA A AAOOAAO 


-TITLE PASSWRITE_REALF_G urine a G_floating in F forma 
IDENT \1-003\ 


-EXTRN PASS$WRITE_REALF_G 
-EXTRN PASSWRITEV_REALF_G 
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EXTRN PAS$$10_HAN 
EXTRN PASSSVACIDATE_PFV 
eEXTRN eet tt yy W 
*EXTRN SSSSIGNAL. PASSK_NEGWIDDIG 
*EXTRN PassevT G_T. PAS$K~LINTOOLON 
TEXTRN PASSSEND_QRITE “ 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 ; | 
01FC 00000 LENTRY PASSWRITE_REALF_G, Save R2,R3,.R4,R5,R6,R7,- ; 0145. 
58 000000006 9E 0000 MOV PASSSSIGNAL, R8 : 
SE 10 C3 000 itd UBL #16, SP : 
04 tit CLRQ ERROR ADDR : 0201 
0c AE D4 O000F CLRL PFV_ADDR : 
6D OO6F CF ODE 90012 MOVAL 5$,7(FP) : 
06 C 91 0001 CMPB_ s(AP), #6 : 0221) 
5 1F OOOIA BLSSU. 1$ : 
04 AE 18 AC DO 000IC MOVL ERROR ERROR_ADDR ; 0233 
56 04 AC dO 00021 18: MOVL : 0225, 
Oc AE 56 DO 00025 MOVL : 
000000006 60 16 900 9 JSB paéstuar ate PFV ; a3) 
08 AE 1 DO 0002F MOVL UNWIND ACT > 0237 
000000006 00 16 00033 JSB PASS init GRITE > 0243 
6E 10 AC DO 00039 MOVL TOTAL_WIDTH, Trt ELD _WIDTH : § 48 | 


9 
PASSWRITE_REALF Write 16-Sep-1984 02:24:54 AX-11 Bliss-32 V4.0-74 
1-008 PASS$WR F forma 1o-ge0-138e 95:83:09 PASRTL. aeipacuntaeg 682; 1° 
05 19 00030 BLSS 2$ 
16 AC b3 Niet TSTL | FRAC_DIGITS 
A 1 0042 BGEQ 46s-«3$ 
E pA 044 2$ CLRL. = SP) 
7 006 BF 9A 00046 MOVZBL M#PASS$K_NEGWIDDIG, -(SP) 
é 2 FB D4, CALLS #2, PASSS$SIGNAL 
52 FO AT EC A? C3 OO04E 38: SUBL3 -20(FCB), -16(FCB), REMAINING WIDTH 
14 AC DD 00054 PUSHL FRAC_DIGITS 
52 DD 00057 PUSHL REMAINING WIDTH 
08 AE 9F 00059 PUSHAB FIELD WIDTH 
FC A pp 2¢ PUSHL  =20(FCB) 
AC F F PUSHAB VALUE_0 
000000006 00 05 F 90068 CALLS #5, PASSCVT_G_T 
OE 20 EB 0006 BLBS : 
7E 6E 52 C3 0006C SUBL3 REMAINING_WIDTH, FIELD_WIDTH, -(SP) 
07 od 00070 PUSHL 
7 006 8F 9A 00072 MOVZBL #PASSK L INTOOLON, -(SP) 
6 03 FB 00076 CALLS #3, PASSSSIGNAL 
EC A? 6E CO OOO7A 4$ ADDL2 FIELD_WIDTH, -20(FCB) 
000000006 00 16 0007E JSB PASSSEND_WRITE 
04 00084 RET 
0000 ee 5$ «WORD Save nothing 
50 08 AC DO 00087 MOVL  8(AP), RO 
50 04 AO DO 0008B MOVL  4(RO). RO 
F4 AO 9F OO08F PUSHAB ERROR_ADDR 
F8 AO 9F 00092 PUSHAB UNWIND ACT 
FC AO 9F 00095 PUSHAB PFV_ADBR 
03 DD 00098 PUSHL #3 
5E DD 0009A PUSHL SP 
7E 04 AC 7D 0009C MOVQ. 4(AP), =(SP) 
000000006 00 03 FB O000A0 CALLS #3, PAS$S$IO_HANDLER 
04 000A7 RET 


; Routine Size: 168 bytes, Routine Base: _PASS$CODE + 0000 
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RITE_REALF write 
PASSWR 
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G hosting in F format 1 
EV_REALF_G = Write REALF_G to string 1 
ZSBTTL ‘PASSWRITEV_REALF_G = Write REALF _ 
GLOBAL ws ey PASSWRITEV_REALF_G ( 

MAX_LENGTH: WORD, 

STRING_LINE : REF VECTOR C, WORD], 

VALUEO, VALUE 

TOTAL_WIDTH: SIGNED, 

FRAC_BIGITS: SIGNED, 

ERROR 

) NOVALUE = 


e4 


FUNCTIONAL DESCRIPTION: 


This procedure writes a G_floating in fixed-point 


to the specified string. 
CALLING SEQUENCE: 
CALL PASSWRITEV_REALF 


FORMAL PARAMETERS: 


G (MAX_LENGTH.rw.v, 
VALUE.rg.v, TOTAL_QIDTH.rl.v, FRAC_D 


Maximum Length of string 
String to write to 

Value to write 

Total field width 
Fraction digits 

Error unwind address 


format 


STRING_LINE.wvt.r, 


C, ERROR.).r)) 


MAX_LENGTH - The maximum Length of STRING_LINE. 


STRING_LINE 


A varying string to which the output will be appended. 


VALUE - The value to write. Note that it is passed by immediate 


value in two argument positions. 
TOTAL_WIDTH - The width of the field to write. 


FRAC_DIGITS - The number of digits in the fraction field. 


in case of an error. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 

i SIGNALLED ERRORS: 

See PASSWRITE_REALF_G 
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ERROR - Optional. If specified, the address to unwind to 
i] 
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ng in F forma 1 
- Write REALF .G to string 1 


BEGIN 
CAL 
PFY: prassery tron VARIABLE, 
ARG Lists ‘J 


Mi LE 
UNNIND ACT: VOLATILE, 
ERROR_ADDR: VOLATILE; 


3 
_=j 
_— 


BUILTIN 
ACTUALCOUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND 


+ 

Get ERROR parameter, if present. 

IF ACTUALCOUNT () GEQU 6 
ERROR_ADDR = .ERROR; 

PFV_ADDR = FV CPFVSR_PFVI; 


'4 
‘ Set up ARG_LIST. 


ARG_LIST (0) = 5; 
ARG-LIST (1) = iy CPFVSR_PFVI; 
ARG_LIST ¢] = .VALUEO; 
ARG_LIST = ,VALUE1; i 
ARG_LIST (4) = .TOTAL_WIDTH; i 
ARG_LIST (5) = .FRAC_BIGITS; ! 


14 
' Call PAS$$DO_WRITEV to do the work, 
; PASSWRITE_REALF_G to call. 


BLi 13; -32 V4.0-74 
~ SRC PASURIRFG. B32;1 


' Pascal ye Variable 
Enable argument 


i Enable argument 
! Enable argument 


Count of arguments 


ACT, ERROR_ADDR); ! Enable error handler 


Set unwind address 
Set PFV address 


' Five arguments 
i Value to write 


i Fraction digits 


giving it the address of 


vaaeees WRITEV (PFV CPFVSR_PFV], .MAX_LENGTH, STRING_LINE (COJ, ARG_LIST, 


ASSWRITE_REALF_G); 
RETURN; 
END; 


5E 30s p 


! End of routine PASSWRITEV_REALF_G 


PASSSDO_WRITEV 
Te REALF_G, Save R2,R3,R4,R5,R6 


Serie ~REALF prise? 


loa 
AS$W RITED REALF _ 


Gf 


—-——00 
OfOre 


7E 
000000006 00 


; Routine Size: 111 bytes, 
; 330 0390 1 
3 3a. 0391 1 !<BLF/PAGE> 


Routine Base: 


ting in F forma 
- Write REALF .6 to string 


go 00st 


1¢ 
24 
8 
B rnd 
i 
2 é 
00 


000000006 


7¢ 


00079 OO-"WG OOO NOU OU 09 
ARAROOOSO LO OOCOMMMNIOMomMmon—m 


OF 
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PASSURITED WREALF_G = write REALF .G to string 
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PASRTL.SRCJPASWRIRF 


! End of module PASSWRITE_REALF_G 


; Name Bytes Attributes 

: PASSCODE 279 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

: ecocecce Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 

; COMMAND QUALIFIERS 

: SLESS/CME CROCE LELD, INETIAL ,OPTINIZE) /NOTRACE/L 181. 155 1 PASUR IRF E/0BJ90R.JS :PASUR INES MSRC$:PASWRIRFG/UPDATE=(ENHS$:PASWRIRFG 


v 
= 


. 
a 
° 
e 
7 
6 
> 
a 
. 
° 
. 
o 
o 
. 
° 
7 
o 
° 
° 
. 
o 
. 
o 
= 
o 
. 
oO 
. 
a 
. 
a 
. 
o 
” 
” 
. 
e 
> 
o 
on 
7 
o 
. 
o 
° 
. 
© 
. 
. 
a 
* 
o 
. 
. 
- 
. 
. 
° 
. 
oe 
o 
o 
. 
e 
a 
e 
. 
. 
a 
a 
. 
ao 
. 
o 
. 
. 
a 
. 
o 
. 
e 
+ 
a 
. 
e 
. 
e 
. 
a 


0299 fH-8T13A- SE ORPORATION 
VO70 VAX/VMS V4.0 | OPRIETARY 


